
module Arquivo where
import System.IO
import Text.Printf

caminho = "log.txt"

abreArquivoLeitura :: IO Handle
abreArquivoLeitura = openFile "teste.txt" ReadMode

abreArquivoEscrita :: IO Handle
abreArquivoEscrita = openFile caminho AppendMode


lerConteudo :: IO String
lerConteudo =  do arquivo  <- abreArquivoLeitura
                  hGetContents arquivo


escreve :: String -> IO()
escreve x = do arquivo <- abreArquivoEscrita
               hPutStr arquivo x
               hClose arquivo




montaCabecalho :: String -> IO()
montaCabecalho palavra  = do arquivo <- abreArquivoEscrita
                             hPutStrLn arquivo ("#"++palavra) 
                             hClose arquivo

montaCabecalhoToString :: String -> String
montaCabecalhoToString palavra  = "#"++palavra++"\n"

montaRodapeReconhecida :: String -> IO()
montaRodapeReconhecida palavra    = do arquivo <- abreArquivoEscrita
                                       hPutStrLn arquivo ("#"++palavra++"%\n\n") 
                                       hClose arquivo

montaRodapeNaoReconhecida :: String -> IO()
montaRodapeNaoReconhecida palavra    = do arquivo <- abreArquivoEscrita
                                          hPutStrLn arquivo ("#"++palavra++"%\n\n") 
                                          hClose arquivo
                  

